Hi Tiku,

thanks a lot for your reply.
I understand your argumentation and have changed the code of the application correspondingly. Unfortunatly I failed completely, when trying to identify the filter results by iterating as supposed by you. The sub...

Public Sub Next_Filter_Result(ByVal Parent_Item As Long)
    
   Dim Next_Item As Long
   Dim Sub_Item As Long
    
   ' Jump to Next Item Matching Folder/File Settings
   With ETV
      Next_Item = .ItemGetNextItem(Parent_Item)
      If .ItemIsPartOfFileSystem(Next_Item) Then
         .SelectedItem = Next_Item
         .ItemEnsureVisible (.SelectedItem)
         Exit Sub
      Else
         Sub_Item = .ItemGetFirstSubItem(Next_Item)
         Do While Sub_Item <> -1
            If .ItemIsPartOfFileSystem(Sub_Item) Then
               .SelectedItem = Sub_Item
               .ItemEnsureVisible (.SelectedItem)
               Exit Do
            End If
            Sub_Item = .ItemGetNextItem(Sub_Item)
         Loop
   End With
       
End Sub

... either "Debug.Print"s (deleted in the code above) the next logical drive or nothing. I don't want to be impudent, but if you happen to have a code snippet suitable as starting point, I would be very thankful.

In any case 
I thank you for your help so fare and wish you all the best
aka